install.packages("plotrix")
library("plotrix")

expl=function(x,y){
  
  library ("plotrix")
  
  dados <- list(x,y)
  
  x11()
  par(mfrow=c(2,2))
  boxplot(y~x, col=c("red", "gray"), names=c("variaveis y","variaveis x"))	
  multhist(dados, col=c("red", "gray"))   
  qqnorm(x, col="gray", xlab="terico", ylab="amostra")
  qqline(x, col="gray")
  qqnorm(y, col="red")
  qqline(y, col="red")
  
  lm <- lm(y~x)

  plot(y~x)
  

  abline(lm)
  
  coeficiente=coef(lm)[2]
  
  names(coeficiente) = " "
  
  output = list(summary(y), summary(x), coeficiente)
  
  names(output) = c("Sumrio y","Sumrio x","Coeficiente")
  
  return(output)
}
